extern int dlaruv_(integer *iseed, integer *n, doublereal *x);
